PCX 



m m ^ m m 




(51) mmMn^me 

G06F 9/06 



Al 



(11) m^yj^mm^ 



(43) B^<2>HB 



W098/19232 



1998^5^7 0(07.05.98) | 



(21) H^ttlJS#-^ 

(22) mmmmB 



PCT/JP97/01492 
1997¥4>^ 30 0(30.04.97) 



(30) ^g5fe«i7^-^ 

pct/jp96/03183 1996^10>^ 30 0 (30.10.96) WO 

(34) ^(Dmmfc^}Km,mm-^tzi'immmmt^'t(Dm 

{COl^^X^tlfcm^ JPetal. 

(71) mm A i^xxf- 
(72) 

ffi*i:^t(NEGORO, Fumio)[JP/JP] 

T248 W^JH!ft^»*m+:^^967-64Kanagawa,(JP) 

(74) i-^MA 

^m± ^UJte— (SUYAMA, Saichi) 
WSKOjlf/u Tokyo, (JP) 



(81) CA. CN, JP. KR, NZ, RU, SE, SG, US, ^i^mW^ I 

(AT, BE, CH, DE, DK, ES, FI, FR, GB, GR, IE, IT, LU, MC. NL, I 
PT, SE). 



(54)Title: SOFTWARE PRODUCING METHOD, PROCESSOR, PROCESSING METHOD AND RECORDING MEDIUM 



(57) Abstract 

A defined unit identifier which is an image necessary for a software to be 
produced is determined. Words existing in the defined unit identifier are picked up 
and a processing routine diagram, in which all pallets necessary for the software are 
arranged along the flowchart, is produced based on the defined unit identifier. Then a 
necessary file is determined in accordance with the picked-up words and the 
produced processing routine diagram. Then first basic logics for performing the 
image editing or the file editing, second basic logics for determining a processing 
routine and third basic logics for updating the file are produced for all the picked-up 
words. Then three types of pallets connecting the first, second and third basic logics 
are produced for every image and pallet functions which execute the basic logics in 
the respective pallets autonomously with significance are produced. An image based 
upon the pallet function concerning the first basic logics is transmitted and the 
picture is received and the pallet fiinction concerning the second basic logics is 
executed. This process is one of a plurality of process routes. The above mentioned 
pallet functions are incorporated into a pallet chain ftinction which has a structure for 
determining one processing routine among a plurality of processing routines 
including the processing routine where the pallet ftinction concerning the third logics 
is executed in accordance with the result of execution of the pallet function 
concerning the second logics. This software does not require to produce basic logics 
for all the words and. if basic logics are produced for some of the words, the 
operation is performed within the range. 
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COLHDGC" I2?lz2fNO 2 1 *) 



4 2 



wo 98/19232 PCT/JP97/01492 



PWl V2R3M0 931105 S E UHii^ 'J X h 

7 r ;l/ CTNOIO/QDDSSRC 

/<- K052BP02 



1 . . 


.+. .. 2 ...+.. 


,. 3 . 4 . 


..+... 5 .. 


. +. .. 6 ...+... 7 . 




A " 


KEU463 


2S 0 


COLHDGC 


ffi§IS8F?f NO 2 


•) 


A 


KB9601 


5P 0 


COLHDGC 


3m.'^mmmsii& 3 


') 


A 


KB6103 


9A 


COLHDGC 


tU5£,"^ltiBf 3- K3 


•) 


A 


KE6153 


9A 


COLHDGC • 


n - K 3 




A 


KE6903 


9A 


COLHDGC * 


SI*Sij;&.ii^3- K 3 


•) 


A 


KE7353 


8S 0 


COLHDGC ' 


^.^m^'^MB 3 


') 


A 


KE7403 


8S 0 


COLHDGC ' 


S:l*^.^Sl5if^3e 3 


') 


A 


KE7453 


lA 


COLHDGC • 




•) 


A 


KES571 


lA 


COLHDGC* 


^5e^K3^ 3 


* ) 


A 


KEU464 


8S 0 


COLHDGC ' 


IR?(SFN0 3 1 


• ) 


A 


KEU465 


2S 0 


COLHDGC ' 


lS??ISrh-NO 3 


' ) 


A 


KE9851 


5P 0 


COLHDGC ' 


m^!^M^!SiSi^ 4 


' ) 


A 


KE7504 


9A 


COLHDGC ' 


K 4 


• ) 


A 


KE7554 


9A 


COLHDGC • 


SiJ©.^iiS?3- h 4 


• ) 


A 


KE7604 


9A 


COLHDGC ' 


©*$iiJ^,»S3- K 4 


* ) 


A 


KE8054 


8S 0 


COLHDGC • 




' ) 


A 


KB8104 


8S 0 


COLHDGC * 




* ) 


A 


KE8154 


lA 


COLHDGC ' 


llK4yJS 4 


' ) 


A 


KES572 


lA 


COLHDGC ' 


^jE^Ki} 4 


) 


A 


KEU466 


8S 0 


COLHDGC 


12§l28rNO 4 1 


) 


A 


KEU467 


2S 0 


COLHDGC 


Hx5l35fTN O 4 


} 


A 


KBAlOl 


5P 0 


COLHDGC 




} 


A 


KE8205 


9A 


COLHDGC 




) 


A 


KB8255 


9A 


COLHDGC 




) 


A 


KE8305 


9A 


new tinr* / * 

COLHDu^ 




) 


A 


KE8755 


8S 0 


COLHDGC 




) 


A 


KE8805 


8S 0 


COLHDG C 




) 


A 


KB8855 


lA 


COLHDuC 




) 


A 


KES573 


lA 


COLHDGC 


3Z1 Ct3 tn c 


) 


A 


KEU468 


8S 0 


CULHUO \ 


gX?l»N05 1 


) 


A 


KEU469 


2S 0 


CULHUO 


^ 7 1 IT IN U D 


• ^ 
) 


A 


KB4005 


TD A 

7P 0 


pni unr ( * 
UULnUU V 


35 -1^ "J 3cJC ST 


* ^ 
J 


A 


KE1124 


1 on o 

13P 3 


UULnUu V. 


/HIliD 


J 


A 


KEA651 


13P 3 






* \ 
) 


A 






COLHDGC ' 


9s **i lUU O J J 1 1 


' ) 


A 


KEA751 


4S 2 


COLHDGC 




•) 


A 


KEA801 


13P 3 


COLHDGC 




•) 


A 


KEU472 


9P 0 


COLHDGC 




•) 


A 


KEA851 


4S 2 


COLHDGC 




•) 


A 


KEA901 


4S 2 


COLHDGC 




•) 


A 


KEA951 


13P 3 


COLHDGC 




*) 


A 


KEU473 


9P 0 


COLHDGC 




•) 


A 


KEBOOl 


4S 2 


COLHDGC 




') 


A 


KEB051 


4S 2 


COLHDGC 


^±4#Si|S15ls$5 


•) 


A 


KEB701 


I3P 3 


COLHDGC 




•) 


•A 


KEU478 


9P 0 


COLHDGC 




■) 


A 


KEB751 


4S 2 


COLHDGC 




•) 


A 


KEB80I 


4S 2 


COLHDGC ' 




•) 


A 


KECOOl 


9P 0 


COLHDGC ' 


•) 


A 


KEC151 


5S 2 


COLHDGC ' 




•) 


A 


KE0373 


3S 0 


COLHDGC ' 




•) 


A 


KEC201 


9P 0 


COLHDGC 




•) 


A 


KEC251 


9P 0 


COLHDGC • 




•) 



4 3 



wo 98/19232 PCT/JP97/01492 



PWl V2R3M0 931105 



V r ^ . . 


.... CTNOIO/QDDSSRC 


.... 


.... K052BP02 




R*... I 


2 ...+.., 3 . 




A 


KES002 


9P 0 


A 


KE4028 


8S 0 


A 


KE4029 


8S 0 


A 


KBU452 


2S 0 


A 


KB4030 


8S 0 


A 


KBU453 


2S 0 


A 


KB4031 


8S 0 


A 


KEU454 


2S 0 


A 


KB4032 


8S 0 


A 


KBU455 


2S 0 


A 


KE4033 


8S 0 


A 


KB4034 


88 0 


A 


KB4035 


8S 0 


A 


KEU456 


2S 0 


A 


KE4036 


88 0 


A 


KEU457 


OP A 

28 0 


A 


KEU289 


8S 0 


A 


KEU453 


25 0 


A 


KEu290 


OP A 

8S 0 


A 


KEU459 


OP A 

2S 0 


A 


KESddo 


O C A 

oS 0 


A 


KB 1057 


oc t\ 

oo U 


A 


KEU936 


OO A 


A 


KEu9oT 


oc A 


A 




9Q A 
U 


A 




7A 
t A 


A 

A 


ACID f 1 




A 

A 




1 A 


A 




40A 


A 
n 


KET030 


9A 


A 


KET031 


9A 


A 


KET032 


9A 


A 


KET033 


9A 


A 


KET034 


9A 


A 


KET035 


9A 


A 


KET036 


9A 


A 


KBT037 


9A 


A 


KET038 


9A 


A 


KET039 


9A 


A 


KEV320 


lA 


A 


KEB321 


lA 


A 


KE1771 


7A 


A» 






A 


K KE4001 




A 


K KE1879 




A* 







. 4 . 



I ^ • • ■ 5 • • 
COLHDG( ' 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDG( ' 
COLHDG( ' 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC ' 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDG( ' 
COLHDGC 
COLHDGC ' 
COLHDGC 
COLHDGC ' 
COLHDGC 
COLHDGC 
COLHDGC ■ 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC ' 
COLHDGC • 
COLHDGC 
COLHDGC 
COLHDGC ' 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC 
COLHDGC* 
COLHDGC ' 



• • • • 6 • • • * • 7 * • • ^< 

saffNo •) 

fgaNO •) 

56a?TNO ') 

ttANO •) 

ti:A^fNO ') 

ai^^No •) 

tbiSftTNO ') 

3£tANO •) 

A^NO .') 

5S±NO •) 

55±?tNO ') 

^»NO •) 

^»ItNO •) 

ttASS^ISSNO •) 
ttAigS*lf«?fO ') 

e^No •) 
fiajNo ') 
^mffNo •) 

m««No •) 

a*a-K ') 

^«ic •) 
=fmF ) 

SiiB#ifSilS±9 '} 
gfiiB#WSaST9 •) 
rSISttAJfea-K *) 

^fliE»2 •) 

1 •) 



4 4 



wo 98/19232 PCT/JP97/01492 



WO 2 ^aS^ (#53 + — ) 

»r****«Mn»i »*»»»»»*»***»***»***»** *»*»***»***»*»»**♦»*»**»**»»* 



j,P0004-SEC. SECTION. 



P6004 S A W0204(PS) = 04 ) 
GO TO LP0004-EXIT 
END-IF. 

* L01540 0 P C D (LP0004) 
*- 



fP'^"A01540°0F^KH2iiE(PS) = SPACE 
MOVE 1 TO ERR-INF 
MOVE 2Q09 wen Mn 

MOVE B*r 



0 MSG-NO 

0 A01540-C OF W0204(PS; 

MOVE SPACE TO A01560 OF KH201B(PS) 



ELSE 

* '''' ^'''ni umm-o?E, NOT - -r 

OPEN INPUT K213DL01 

IF FLSTSl NOT = ZERO 

MOVE 8800 TO MSG-NO 
MOVE ^1 TO ERR-INF 
GO TO MAIN-END 

ELSE 

MOVE *r TO K213DL01-0PEN 
END-IF 
END-IF 

* MOVE A01540 OF KH201B(PS) TO W01540 

m 18 SS%P K213D101-«BC 

MOVE 100 TO SGLCODB 
END-READ 

IF SGLCODE = ZERO 

MOVE SKD792 OF K213DL01-REC TO R-W01560 
END-IF 

IF SGLCODE = ZERO 

MOVE R-W01560 TO INDATA 

MOVE 16 TO OUTKETA 

Ho5E°'*OUTDAfA'''^TO AD1560 OF KH20IE(PS) 

ELSE 

MOVE T TO ERR-INF 



ilSKi W 18 SBJsP-C OF W0204(PS) 
MOVE SPACE TO A0I560 0F-KH201ECPS) 



END-IF 
END-IF. 

IF CSR-LOCK OF W0204(PS) = "A12590" 
MOVE 3 . TO ROUTE-NO 

MOVE ^KH600Q TO L-GAMEN-NO 



MOVE 3 TO ROUTE-NO 

MOVE "KHSOOQ* TO L-GAMEN-NO 
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WO 3 : (itBgJg 

tittt******t****t ^'-^ (D^ib **M ************************* 

* KH201E (zJEil) * 

IF GAMEN-NO OF CRTL-AREA = "KH201E" 

D DISPLAY :KH201E LAYT-FLC=: LAYH-FLG 
D DISPLAY "KH201E LAYT-FLG=" LAYT-FLG 
IF LAYH-FLG = 'V 

K YD1179KH201E1E 
MOVf A01540 OP KH201E(STG1) 
. -^JO KD1179 OF EF-ARBA 
*»M* ttJg^S* YD1839KH201B1E 

MOVr"07580 OF KH201E(STG1) 
..... «,=.4« JO KD1839 OF EF-ARBA 
***** 3?5M«^3— H YD1847KH201E1E 
MOVrA12590 OF KH201E(STG1) 
oon.n. x»,n.vrXP KD1847 OF EF-ARBA 

960424***** p§INO YD1844KH201E1E 



!!;!!e8P-IF " K»18" OP EP-ARBA 
960513***** SSNO YD1844KH201B1E 
*****ir A07560 OF KH201E(STG1) IS NUMERIC 
***** MOVE AQ7560 OF KH201E(STG1) 
*****nn„ .n TO KD4029 OF EF-ARBA 
*****EDM-IF 

960513***** M«N O YD4028KH201E1E 
*****ir JS4800 OF KH201E(STG1) IS NUMERIC 
***** MOVE A04800 OF RH201E(STG1) 
*****n„,. TO KD4028 OF EF-ARBA 
*****END-IF 

***** Kflj^lt^Si YD1854KH201E1E 
MOVf AOlSBO OF KH201B(STC1) 
JQ. -KDJ854 OF EF-ARBA 



***** ^.ll^<ffi)^ltj^^ YD1857KH201BIE 
MOVE AO436ir0f KH201E(STG1) 



KH201E(STG1) 

. . ».=,4« JQr, JfiiiST^OP EF-ARBA 

^§V^ All^f r^" - ^•^'1044KH201E1E 



.. . , TO KD4044 OF EF-AREA 
***** flS^ 1 YD1786KH201E1E 
MOVE A17860 OF KH201E(STG1) 
„ TO KD1786 OF EF-AREA 
***** YD1787KH201E1E 
MOVE A17870 OF KH201E(STG1) 
»,=..-. J9.JD1787 OF EF-ARBA 
***** 563^51 N O YD4037KH201E1E 
MOVE AU2d80 OF KH201E(STG1) 
^..-r^TO KD4037 OP EF-ARBA 
***** S2jIIE5> YD1412KH201E1E 

MOVE A14130 OF KH201E(STG1) 
..... «,^* TO KD1412 OF EF-ARBA 
***** ffl^#3— K YD1084KH20IE1E 

Wlf A10840 OF KH201E(STC1) 
..... ^-^JP*PiP84 OP EF-AREA 
***** \Z^,t^^¥iWn^ „„on,„/««.«,PS568KH201ElE 
MOVE ^11216 OF KH201E(STG1) 
n„n ,n TO KDS568 OF EF-AREA 
END-IF 

*******r*UYT-FLG**-***l" ********************************** "^^^"^ 
PERFORM VARYING SI FROM 1 BY 1 
UNTIL SI > 6 
***** LASTIDX CONTROL 

MOVE SI TO TI 
***** :3 — K 1 YE5501KH201B1E 

***** If A11210 OF KH201E(STG1) NOT " 1 
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W 0 3 : 

•■»ni'=*^»r« W03EH2 

* W03EH2 (H D R) * 
*»»*»»»»**»**♦*******»**»»**********♦********»»*****»*»**** 

♦ MM l6S[fimffi^lt^i| L18570 
UG0717M*MIF TKBN = CNS-EF AND KDU360 OF BF-AREA NOT = T 

IF TKBN = CNS-EF , , 

IF KE5001 OF EF-AREA(PI) IS NUMER C 

OF EF-AREA, , IS NUMERIC 

OF EF-AREA(PI) IS NUMERIC 

ZERO TO KD1857 OF EF-AREA 



AND KD1857 
AND KEC20I 

IF PI = 
MOVE 

END-IP 

IF ;;: 

COMPUTE 



KE5001 OF EP-AREA(PI) 
DK1857 OF BP 



NOT = ZERO 
AREA = KD1857 OF EF-AREA 

+ KEC201 OF EF-AREA(PI) 
ON SIZE ERROR 

MOVE ALL "9 TO KD1857 OF EF-AREA 
IF ERR-INP = SPACE 
MOVE 'r TO ERR-INF 
MOVE 3019 TO MSG-NO 
BND-IF 
END-COMPUTE 
END-IF 

END-fp^^ 

*****!P4i!f^?llf-lt^^ L18580 
IF KD1858 OF EF-AREA, , 
AND KE500I OF EF-AREA(PI) 

- OF EF-AREA(PI) 

NOT = 

.[DU360 OF EF-AREA NOT = 
IF PI = 1 

MOVE ZERO TO KD1858 OF EF-ARBA 
END-IF 

IP KE50CI OF EF-ARBA(PI) NOT = ZERO 
COMPUTE KD1858 OF EF-AREA 
= KD1858 OF EF-AREA, 
+ KEC251 OF EF-AREA(PI) 
ON SIZE ERRO| 



***** 



AND KEC251 
NO' 

F KDU3( 



IS 
IS 
IS 



NUMER 
NUMBR 
NUMER 



MOVE ALL 
IF ERR 
MOVE 
MOVE 
END-IF 
END-COMPUTE 
END-IF 

- -1- 

.[DU360 OF EF-AREA = "1" 
MOVE KDiOgg OF EF-ARBA 
TO KD1858 OF EF-AREA 
END-IF 
END-IF 

MM*^^i[fefil5^lt^t| L18560 
IF TKBN = CNS-E 



TO KD1858 OF EF-AREA 
INF = SPACE 
"1 TO ERR-INF 
3019 TO MSG-NO 



IF KI 



OF EF-AREA(PI) 
OF EF-AREA, , 
OF EF-ARBA(PI) 

ZERO TO KDI856 OF EF-AREA 



IS NUMERIC 
IS NUMERIC 
IS NUMERIC 



IP KE5001 
AND KDI856 
AND KE1124 
IF PI = 
MOVE 
END-IF 

IF KE5001 OF EF-AREA(PI) NOT = ZERO „ „ 

COMPUTE KD1856 OF EF-ARBA = KD1856 OF EF-AREA, ^ 
+ KE1124 OF EF-AREA(PI) * KE5001 OF EF-AREA(PI) 
ON SIZE ERROR 

MOVE ALL "9 TO KD1856 OF EF-AREA 
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SPACE 
TO ERR-INF 
— MSG-NO 



S-EF 

OF EF-AREA„NOT = 

EF-AREA, ,^ 

EF-AREA(PI) 



110990 



W 0 3 

MOVE 

MOVE 3019 TO 
END-IP 
END-COMPUTE 
END- IF 
END-IF 
END-IF. 

AND KE5001 OF ..^^ 
AND KEC251 OF BP-AREA 

IF PI = 1 

MOVE ZERO 

END-IF 

IF KE5001 OF EF-AREA(PI) 
COMPUTE KD1099 OF EF 
= KD1099 OP 
+ KEC251 OF 
ON SIZE ERR05„, „^ 
MOVE ALL '9 TO 
IF ERR-INF = SPACE 
MOVE TO ERR 

MOVE 3019 TO MSG 
END-IF 
END-COMPUTE 
END-IF 
END-IF 
END-IF 

*****lF%N-^C 
IF KD1854 
AND KD1857 
AND KD1099 
COMPOTE 



NUMERIC 
NUMERIC 
NUMERIC 



TO KD1099 OF EF-AREA 

NOT = ZERO 
_. AREA 
EF-ARBA, , 
EF-AREA(PI) 



KD1099 OF EP-ARBA 

■INF 
■NO 



S-EF 
OF EF 

OF EF 

OP EF-AREA 
KD1854 OF 



L18540 



AREA 
AREA 



IS 
IS 
IS 



ON SIZE ERROR 
MOVE ALL "9' 
IF ERR-lNf = 
MOVE "1" 
MOVE 3019 
END-IF 
END-COMPUTE 
END-IF 



NUMERIC 
NUMERIC 
„ NUMERIC 

EF-AREA = KD1857 OP EF-AREA 
- KD1099 OF EF-AREA 



TO KD1854 
SPACE 
TO ERR-INF 
TO MSG-NO 



OF EF-AREA 



END-IF. 



L18550 



IF KD1855 OF EF-AREA IS NUMER C 
AND KD1854 OF EF-AREA S NUMER C 
AND WI0903 S NUMpjC 

IF (KS0901 OF WBF-ARBA = '1*) 
IF KD1854 OF EF-AREA >= ZERO 
COMPUTE KD1855 OP EF-AREA 

= KD1854 OP EF-AREA » (1 + W10903) + 0.5 
ON SIZE ERROR 

MOVE ALL *9" TO KD1855 OF EF-AREA 
IP ERR-INF = SPACE 
MOVE TO ERR-INF 

MOVE 3019 TO MSG-NO 
END-IF 
END-COMPUTE 
ELSE 

COMPUTE KD1855 OF EF-AREA 
= KD1854 OF EF-ARBA 
ON SIZE ERROR , 
MOVE ALL ^9 



* (1 + W10903) - 0.5 



IF ERR-INF = SPACE 



TO KD1855 IF EF-AREA 
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w 0 4 : iiLmm^ 



Y17990 if|l=i X 



Y04360 



Y04360-SEC SECTION. 
Y04360-START._ 



.F 
AND 



ERR-INF NOT = 1 
GAMEN-NO OF W0204(PS2> = "KH201E" 
IF PPKEY-NO OP W0204(PS2) = 1 
OR PPKEY-NO OP W0204(PS2> =12 , , 

MOVE ZERO TO A04360 OF KH201E(PS1) 

ELSE 

IF KD1857 OP W03-HD1R " IS NUMERIC 
MOVE KD1857 OP W03-HD1R , 
TO A04360 OF KH201E(PS1) 

END-IF 
END-IF 
END-IF. 
Y04360-EXIT. 
EXIT. 



w 0 4 ?Simmm 



L04360 



rlt^SS 



L04360-SEC SECTION. 
L04360-START. 

MOVE ZERO TO WK-KINGAKU 
PERFORM VARYING PJ FROM 



IF 



UNT 
A083I 
AND A0922 
AND A0922 
AND A1079 
AND AI079 



. PJ > 
OF KH20 
OF KH20 
OF KH20 
OF KH20 
OF KH20 



1 BY 1 
6 

PSI PJ 



E(PS1 PJ 

E(PS1 PJ 

E(PS1 PJ 

ECPSl PJ 



NOT = SPACE 
IS NUMERIC 
NOT = ZERO 
IS NUMERIC 
NOT = ZERO 



AND 
AND 



IS NUMERIC 
NOT = ZERO 



OF KH201E(PSl PJ) 

A16721 OF KH201E(PS1 PJ) 

COMPUTE WK-KINGAKU „ n.N 

= WK-KINGAKU + A16721 OF KH201E(PS1 PJ) 

END-IF 
END'PERPORM 

MOVE WK-KINGAKU TO A04360 OF KH201B(PS1). 
L04360-BXIT. 
EXIT. 
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^bbfctoT?. OS • 5: hvu • • mm • mm^^ifrnf^r^i^-rmm-r^^ 
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